home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / binutils.7 / binutils / binutils-2.7 / gas / testsuite / gasp / sfunc.out < prev    next >
Encoding:
Text File  |  1996-07-04  |  637 b   |  50 lines
  1. !
  2.  
  3. !    .MACRO    RESERVE_STR P1=0 P2
  4. !    .SDATA    .SUBSTR("ABCDEFG",\P1,\P2)
  5. !    .ENDM
  6. !
  7.  
  8. !    RESERVE_STR    2,2
  9. !    .SDATA    .SUBSTR("ABCDEFG",2,2)
  10.     .byte    67,68
  11. !    RESERVE_STR    ,3
  12. !    .SDATA    .SUBSTR("ABCDEFG",0,3)
  13.     .byte    65,66,67
  14. !
  15.  
  16. !
  17.  
  18. !    .MACRO FIND_STR P1
  19. !    .DATA.W    .INSTR("ABCDEFG","\P1", 0)
  20. !    .ENDM
  21. !
  22.  
  23. !    FIND_STR    CDE
  24. !    .DATA.W    .INSTR("ABCDEFG","CDE", 0)
  25.     .short    2
  26. !    FIND_STR    H
  27. !    .DATA.W    .INSTR("ABCDEFG","H", 0)
  28.     .short    -1
  29. !
  30.  
  31. !    .MACRO    RESERVE_LENGTH P1
  32. !    .ALIGN    4
  33. !    .SRES    .LEN("\P1")
  34. !    .ENDM
  35. !
  36.  
  37. !    RESERVE_LENGTH    ABCDEF
  38. !    .ALIGN    4
  39.     .align    4
  40. !    .SRES    .LEN("ABCDEF")
  41.     .space    24
  42. !    RESERVE_LENGTH    ABC
  43. !    .ALIGN    4
  44.     .align    4
  45. !    .SRES    .LEN("ABC")
  46.     .space    12
  47. !
  48.  
  49. !    .END
  50.